home *** CD-ROM | disk | FTP | other *** search
/ HAKERIS 11 / HAKERIS 11.ISO / soft / development / Macromedia RoboHelp X5 / RoboHelpOffice.exe / Data1.cab / _3CE24D9A830C43B18428058B74327260 < prev    next >
Encoding:
Text File  |  2003-06-16  |  1.1 KB  |  39 lines
  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. ' 
  3. '  Macromedia Flash Dispatcher -- a scriptable detector for Flash Player
  4. ' 
  5. ' 
  6. '  copyright (c) 2000 Macromedia, Inc.
  7. ' 
  8. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  9.  
  10.  
  11. ' Check for the Flash ActiveX control.
  12. '
  13. ' This script will be ignored by browsers that do not support
  14. ' VBScript (although Microsoft Internet Explorer will warn the
  15. ' user that a script in an unsupported language has been
  16. ' encountered if the user has checked "Show unsupported scripting
  17. ' language errors" in Preferences->Web Browser->Web Content).
  18. '
  19. ' This technique due to Jeff Brown and Rafael M. Mu±oz of
  20. ' Microsoft Corporation.  Version testing adapted from Macromedia
  21. ' Flash Technical Note #12853.
  22.  
  23. Private i, x
  24.  
  25. On Error Resume Next
  26.  
  27. MM_FlashControlInstalled = False
  28.  
  29. For i = 6 To 1 Step -1
  30.    Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
  31.  
  32.    MM_FlashControlInstalled = IsObject(x)
  33.  
  34.    If MM_FlashControlInstalled Then
  35.        MM_FlashControlVersion = CStr(i)
  36.        Exit For
  37.    End If
  38. Next
  39.